home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / DRIVER.CAB / pscript5.dll / 259 / 12 < prev    next >
Encoding:
Text File  |  1999-11-30  |  1.6 KB  |  25 lines
  1. %%BeginResource: file Pscript_Win_Utils_L2 5.0 0
  2. /rf/rectfill , d/fx{1 1 dtransform @ 0 ge{1 sub 0.5}{1 add -0.5}? 3 -1 $ @ 0 ge
  3. {1 sub 0.5}{1 add -0.5}? 3 1 $ 4 1 $ idtransform 4 -2 $ idtransform}b/BZ{4 -2 $
  4. snap + +S fx rf}b/rs/rectstroke , d/rc/rectclip , d/UtilsInit{currentglobal{F
  5. setglobal}if}b/scol{! setcolor}b/colspA/DeviceGray d/colspABC/DeviceRGB d
  6. /colspRefresh{colspABC setcolorspace}b/SetColSpace{colspABC setcolorspace}b
  7. /resourcestatus where{!/ColorRendering/ProcSet resourcestatus{! ! T}{F}?}{F}?
  8. not{/ColorRendering<</GetHalftoneName{currenthalftone @/HalftoneName known{
  9. /HalftoneName get}{!/none}?}bn/GetPageDeviceName{currentpagedevice @
  10. /PageDeviceName known{/PageDeviceName get @ null eq{!/none}if}{!/none}?}bn
  11. /GetSubstituteCRD{!/DefaultColorRendering/ColorRendering resourcestatus{! !
  12. /DefaultColorRendering}{(DefaultColorRendering*){cvn exit}127 string
  13. /ColorRendering resourceforall}?}bn>>/defineresource where{!/ProcSet
  14. defineresource !}{! !}?}if/buildcrdname{/ColorRendering/ProcSet findresource `
  15. mark GetHalftoneName @ type @/nametype ne ~/stringtype ne and{!/none}if(.)
  16. GetPageDeviceName @ type @/nametype ne ~/stringtype ne and{!/none}if(.)5 ^ 0 5
  17. -1 1{^ length add}for string 6 1 $ 5 ^ 5{~ 1 ^ cvs length 1 ^ length 1 ^ sub
  18. getinterval}repeat ! cvn 3 1 $ ! ! E}b/definecolorrendering{~ buildcrdname ~
  19. /ColorRendering defineresource !}b/findcolorrendering where{!}{
  20. /findcolorrendering{buildcrdname @/ColorRendering resourcestatus{! ! T}{
  21. /ColorRendering/ProcSet findresource ` GetSubstituteCRD E F}?}b}?
  22. /selectcolorrendering{findcolorrendering !/ColorRendering findresource
  23. setcolorrendering}b
  24. %%EndResource
  25.